Private Sub CommandButton2_Click()

    Dim  As Integer

    For  = 0 To ListBox1.ListCount - 1
    
        ListBox1.Selected() = False
    
    Next

End Sub